home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs03.d81 / ba_v6_2.sda / PROGRAM INFO. (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  5KB  |  145 lines
  1. 1 A$="":FORJ=1TO80:A$=A$+"..":NEXT
  2. 2 W$=" [208]RESS [210][197][212][213][210][206] TO CONTINUE  [146]"
  3. 3 POKE53281,0:POKE53280,0:POKE788,52:POKE792,193
  4. 4 DN=8:LL=40:M=39:Y1$="[154] ":Y2$="[154] "
  5. 5 FORJ=1TO10:U$=U$+" ":NEXT
  6. 6 FORJ=1TO38:Y1$=Y1$+"[175]":Y2$=Y2$+"[183]":O$=O$+"  ":NEXT
  7. 7 L$="[154] [194].[193]. [208][210][207][199][210][193][205][160][201][206][198][207].   ([198]1 FOR [207]PTIONS) [146]"
  8. 8 DIML$(600):PRINT"[147]***[158] LOADING INFO. FILE, PLEASE WAIT ***"
  9. 9 T$(0)="$0:*=S":T$(1)="$0"
  10. 10 U$(0)="[211][197][209]":U$(1)="ALL":TT=0
  11. 11 FORX=896TOX+75:READA:POKEX,A:NEXT
  12. 12 FORX=49152TOX+253:READA:POKEX,A:NEXT
  13. 13 FORX=49500TOX+188:READA:POKEX,A:NEXT
  14. 14 T=1:GOTO19
  15. 15 PRINT"[147]"CHR$(142):PRINT"[147]       ***[158] ONE MOMENT PLEASE[160]***"
  16. 16 CLR:PRINT"[144]LOAD"CHR$(34)"MENU";
  17. 17 PRINTCHR$(34)",8";
  18. 18 POKE198,5:POKE631,13:POKE632,82:POKE633,85:POKE634,78:POKE635,13:END
  19. 19 F$="B.A. INFO."
  20. 20 IFF$=LF$ANDLL=LPTHEN39
  21. 21 N=1:LP=LL:OPEN1,8,2,F$+",S,R"
  22. 22 G$="":LF=LEN(F$):FORJ=1TOLF:G$=G$+CHR$(ASC(MID$(F$,J))OR128):NEXT:G$=G$+" "
  23. 23 B$=""
  24. 24 SYS896:Q$=LEFT$(A$,PEEK(142))
  25. 25 IFLEN(Q$)<MTHENF=1
  26. 26 B$=B$+Q$
  27. 27 B=LEN(B$)
  28. 28 C$=LEFT$(B$,M):E=LEN(C$):J=E
  29. 29 IFB<MTHENL$(N)=B$:F=0:GOTO35
  30. 30 IFB>ETHENB$=RIGHT$(B$,B-E):GOTO32
  31. 31 B$=""
  32. 32 IFMID$(C$,J,1)<>" "ANDJ>1THENJ=J-1:GOTO32
  33. 33 L$(N)=LEFT$(C$,J-1)
  34. 34 B$=RIGHT$(C$,E-J)+B$
  35. 35 N=N+1:IFB>=MANDFTHEN27
  36. 36 IFSTTHENCLOSE1:N=N-1:LF$=F$:GOTO39
  37. 37 IFB<MTHEN23
  38. 38 GOTO24
  39. 39 SYS938:POKE59639,0
  40. 40 POKE1,PEEK(1)AND253
  41. 41 B=T+22
  42. 42 PRINT"[147]"CHR$(14);L$
  43. 43 FORI=TTOB:PRINTLEFT$(L$(I),39):NEXT:B=I
  44. 44 IFN>BTHENPRINTLEFT$(L$(I),39);:POKE212,0
  45. 45 GETK$:IFK$=""THEN45
  46. 46 IFK$="[145]"ANDT>1THENGOSUB72
  47. 47 IFK$=""ANDT>1THENGOSUB72
  48. 48 IFK$=""ANDB<NTHENGOSUB69
  49. 49 IFK$="[134]"ANDT>1THENT=1:GOTO41
  50. 50 IFK$=CHR$(13)THENPOKE59639,255:GOTO15
  51. 51 IF(K$=CHR$(13)ORK$=CHR$(136))ANDT<N-23THENT=T+24:B=B+23:GOTO42
  52. 52 IF(K$=CHR$(141)ORK$=CHR$(135))ANDT>23THENT=T-24:B=B-25:GOTO42
  53. 53 IF(K$=CHR$(141)ORK$=CHR$(135))ANDT<24ANDT>1THENT=1:GOTO41
  54. 54 IFK$="P"THENGOSUB76
  55. 55 IFK$<>CHR$(133)THEN45
  56. 56 POKE251,0:POKE252,39:POKE253,11:POKE254,15:SYS49152:SYS49263
  57. 57 PRINT"[155][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
  58. 58 PRINTSPC(11)"[158][193]VAILABLE [207]PTIONS
  59. 59 [153][166]11)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  60. 60 PRINTSPC(10)"[154][198]1 - [196]ISPLAY THESE OPTIONS
  61. 61 [153][166]10)"CONTASC3 - CHR$O TO THE BEGINNING
  62. 62 PRINTSPC(7)"[154][198]5/[154][198]7 - [211]CROLL UP/DOWN ONE PAGE
  63. 63 [153]"CONTLENURSOR KEYS - (null)CROLL UP/DOWN ONE LINE
  64. 64 PRINTSPC(11)"[154][208] - [208]RINT [208]ROGRAM [201]NFO.
  65. 65 [153][166]4)" (null)VAL(null)(null)(null)(null) WAIT - (null)ETURN TO VALNTRY (null)ENU
  66. 66 PRINTSPC(4)"[158]([208]RESS ANY KEY TO RETURN TO TEXT)
  67. 67 [161]K$:[139]K$[178]""[167]67
  68. 68 [158]49335:[137]39
  69. 69 B[178]B[170]1:T[178]T[170]1
  70. 70 [151]214,24:[153]"ON"
  71. 71 [153][200](L$(B),39);:[151]212,0:[142]
  72. 72 T[178]T[171]1:B[178]B[171]1:[151]214,22:[153]
  73. 73 [153]"CMDSAVE"
  74. 74 [153]""[200](L$(T),39)
  75. 75 [151]218,132:[142]
  76. 76 [151]59639,255:[139]LL[177]40[167]K[178]1:[137]77
  77. 77 [153]"SYS  (null)REPARE PRINTER,THEN PRESS  (null)VAL(null)(null)(null)(null) WAIT  "
  78. 78 [161]K$:[139]K$[179][177][199](13)[167]78
  79. 79 [153]"SYS    (null)RINTING...   (null)RESS _SYS TO ABORT   ":[159]4,4,7
  80. 80 F[178]1:V[178]58:W[178]0:X[178]58
  81. 82 [129]I[178]F[164]V
  82. 83 [161]K$:[139]K$[178]"_"[167]89
  83. 84 [152]4,L$(I);
  84. 85 [152]4,[200](O$,41[171][195](L$(I)))L$(I[170]X);
  85. 86 [152]4:[130]
  86. 87 [129]J[178]1[164]8:[152]4:[130]
  87. 88 [139]W[179]4[167]W[178]W[170]1:F[178]F[170]116:V[178]F[170]57:[137]82
  88. 89 [160]4:[153]L$
  89. 90 [158]938:[151]59639,0:[142]
  90. 91 [131]160,2,177,45,153,137,,200,192,6,208,246,162,1,32,198,255,32,228,255
  91. 92 [131]201,13,240,15,164,142,145,140,200,132,142,196,139,240,4,165,144,240
  92. 93 [131] 234,76,204,255,169,160,133,252,169,222,133,254,169,,133,251,133,253
  93. 94 [131]160,,177,251,145,251,177,253,145,253,136,208,245,230,252,230,254,208
  94. 95 [131]237,96
  95. 96 [131]162,216,134,188,169,,133,187
  96. 97 [131]162,,160,,173,254,,145,187,200
  97. 98 [131]192,40,144,246,24,165,187,105
  98. 99 [131]40,133,187,165,188,105,,133,188
  99. 100 [131]232,224,25,208,226,162,,189,,4
  100. 101 [131]157,,60,232,224,255,208,245,173
  101. 102 [131]255,4,141,255,60,162,,189,,5
  102. 103 [131]157,,61,232,224,255,208,245,173
  103. 104 [131]255,5,141,255,61,162,,189,,6
  104. 105 [131]157,,62,232,224,255,208,245,173
  105. 106 [131]255,6,141,255,62,162,,189,,7
  106. 107 [131]157,,63,232,224,255,208,245,96
  107. 108 [131]162,4,134,188,169,,133,187,162
  108. 109 [131]0,172,251,,169,117,145,187,200
  109. 110 [131]169,32,145,187,200,204,252,,144
  110. 111 [131]246,172,252,,169,118,145,187,24
  111. 112 [131]165,187,105,40,133,187,165,188
  112. 113 [131]105,,133,188,232,236,253,,208
  113. 114 [131]212,172,251,,169,120,145,187
  114. 115 [131]200,204,252,,144,246,169,120
  115. 116 [131]145,187,96,162,,189,,60,157,,4
  116. 117 [131]232,224,255,208,245,173,255,60
  117. 118 [131]141,255,4,162,,189,,61,157,,5
  118. 119 [131]232,224,255,208,245,173,255,61
  119. 120 [131]141,255,5,162,,189,,62,157,,6
  120. 121 [131]232,224,255,208,245,173,255,62
  121. 122 [131]141,255,6,162,,189,,63,157,,7
  122. 123 [131]232,224,255,208,245,96
  123. 124 [131]32,253,174,32,158,183,134,251
  124. 125 [131]32,253,174,32,158,173,32,166
  125. 126 [131]182,133,252,160,0,177,34,153
  126. 127 [131]82,192,200,196,252,240,4,201
  127. 128 [131]13,208,242,132,252,165,251,201
  128. 129 [131]8,48,4,201,12,48,3,76,72,178
  129. 130 [131]165,252,201,20,16,247,165,252
  130. 131 [131]162,82,160,192,32,189,255,169
  131. 132 [131]1,166,251,160,96,32,186,255,32
  132. 133 [131]192,255,144,22,133,251,96
  133. 134 [131],,,,,,,,,,,,,,,,,,0
  134. 135 [131]162,1,32,198,255,32,180
  135. 136 [131]255,162,96,32,150,255,32,165
  136. 137 [131]255,32,165,255,32,165,255,32
  137. 138 [131]165,255,166,144,208,43,32,165
  138. 139 [131]255,170,32,165,255,32,205,189
  139. 140 [131]169,32,32,210,255,32,165,255
  140. 141 [131]166,144,208,21,32,210,255,208
  141. 142 [131]244,169,13,32,210,255,173,141
  142. 143 [131]2,201,1,240,249,201,2,208,203
  143. 144 [131]32,204,255,169,1,76,195,255
  144. 145 [131]76,195,255,76,195,76,195,255
  145.